home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 26 / CU Amiga Magazine's Super CD-ROM 26 (1998)(EMAP Images)(GB)[!][issue 1998-09].iso / CUCD / Utilities / msql-2.0.4.1 / install_script < prev    next >
Text File  |  1998-06-20  |  2KB  |  77 lines
  1. ; $VER: Install msql server (05.19.98)
  2. ;
  3. ;    Installer script for the msql server
  4. ;    ©1998 Christophe Sollet
  5. ;
  6.  
  7.     (set UserLevel.old @user-level)
  8.  
  9. ; Initialize messages.
  10.  
  11.     (set #SelDIns "\nSelect the location where msql server will be install.\nA drawer called Msql will be created there.\n")
  12.     (set #SelAss "\nFollowing lines will be add to your user-startup file:\nAssign Msql: \n")
  13.  
  14. ; the install procedure
  15.  
  16.  
  17. ; Copy the distribution
  18. (procedure CopyMsql
  19.     ; Create the msql drawer
  20.     (makedir ilocation (infos))
  21.     ; Copy all...
  22.     (copyfiles (source "")
  23.                (dest ilocation)
  24.                (all)
  25.     )
  26. )
  27.  
  28. ; Setup mSQL
  29. (procedure SetupMsql
  30.     ; Setup little but vital things
  31.     (makedir (prompt) (tackon ilocation "msqldb"))        ; will contain all databases.
  32.     (makedir (tackon ilocation "msqldb/.tmp") (prompt))    ; required for working query!
  33. )
  34.  
  35. ; Add Assign & Path to the user-startup
  36. (procedure InstallAss
  37.     (set #SelAss (cat "\nFollowing lines will be added to your user-startup file:\nAssign Msql: " ilocation "\nPath Msql:bin ADD\n"))
  38.  
  39.     (startup "Msql Server"
  40.             (help @startup-help)
  41.             (command (cat "Assign Msql: " ilocation "\nPath Msql: ADD"))
  42.             (prompt #SelAss)
  43.     )
  44. )
  45.  
  46. ; The install process begin here.
  47. ; Welcome the user.
  48.  
  49.     (complete 0)
  50.     (welcome)
  51.  
  52.  
  53. ; Msql install dest.
  54.  
  55.     (set ilocation
  56.       (askdir
  57.           (prompt #SelDIns)
  58.           (help @askdir-help)
  59.         (default @default-dest)
  60.       )
  61.     )
  62.  
  63.  
  64. ; Install all
  65.  
  66.     (set ilocation (tackon ilocation "Msql"))
  67.     (CopyMsql)
  68.     (complete 90)
  69.     (SetupMsql)
  70.     (complete 95)
  71.     (InstallAss)
  72.     (complete 100)
  73.  
  74. ; exit
  75.     (set @default-dest ilocation)
  76.     (exit "A reboot now is recommended before you run the Msql Server\n")
  77.